5 PRINT"[147]    ";
10 FORI=900TO980:READA:POKEI,A:NEXT
20 INPUT"BILD-NAME";N$
30 A=PEEK(56576):POKE56576,A AND 252
40 B=PEEK(53272):POKE53272,8
50 C=PEEK(53265):POKE53265,C OR32
60 F=16*6+8
70 FORI=49152TO50152:POKEI,F:NEXT
80 SYS900,N$
90 POKE198,0:WAIT198,1
100 POKE56576,A:POKE53272,B:POKE53265,C
110 DATA32,253,174,32,212,225,169,92,162,8,160,2,32,186,255,32,192,255,162
120 DATA92,32,198,255,32,207,255,32,207,255,162,32,160,0,132,251,169,224,133
130 DATA252,32,193,3,208,9,169,192,133,252,162,4,32,193,3,32,204,255,169,92
140 DATA76,195,255,32,207,255,145,251,169,195,36,144,208,8,200,208,242,230
150 DATA252,202,208,237,96